#!/usr/bin/perl -w
use Modern::Perl;

my @L[1..26] = 'A'..'Z';
say @L[<>];
